﻿Public Class Pro4_1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.CheckState = CheckState.Checked Then
            Me.TextBox1.Font = New System.Drawing.Font(TextBox1().Font, FontStyle.Bold)

        Else
            Me.TextBox1.Font = New System.Drawing.Font(TextBox1().Font, FontStyle.Regular)
        End If


    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.CheckState = CheckState.Checked Then
            Me.TextBox1.Font = New System.Drawing.Font(TextBox1().Font, FontStyle.Italic)

        Else
            Me.TextBox1.Font = New System.Drawing.Font(TextBox1().Font, FontStyle.Regular)
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.CheckState = CheckState.Checked Then
            Me.TextBox1.Font = New System.Drawing.Font(TextBox1().Font, FontStyle.Underline)

        Else
            Me.TextBox1.Font = New System.Drawing.Font(TextBox1().Font, FontStyle.Regular)
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.CheckState = CheckState.Checked Then
            Me.BackColor = Color.LightCyan

        Else
            Me.ResetBackColor()

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Pro4_2.Show()
        Me.Visible = False



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Visible = False
        Principal.Visible = True

    End Sub
End Class
